home *** CD-ROM | disk | FTP | other *** search
/ Top 200 Programs / Top 200 Programs.iso / Bob8 / THOMPSON / LIBERTY / PRODUCT / LB14W.EXE / CALLDLL4.BAS < prev    next >
BASIC Source File  |  1996-02-01  |  1KB  |  52 lines
  1.  
  2.     'CALLDLL4.BAS  -  Make some API calls to play wave files and
  3.     'dynamically resize a window
  4.  
  5.     open "kernel" for dll as #kernel
  6.     open "user" for dll as #user
  7.     open "mmsystem" for dll as #mmsystem
  8.     open "Me" for window as #aWindow
  9.  
  10.     print str$(playMode)
  11.  
  12.     wavefile$ = "chimes.wav"
  13.     playMode = 0
  14.     calldll #mmsystem, "sndPlaySound", wavefile$ as ptr, playMode as ushort, result as bool
  15.  
  16.     hndl = hwnd(#aWindow)
  17.  
  18.     for x = 50 to 350 step 5
  19.  
  20.         calldll #user, "MoveWindow", _
  21.             hndl as word, _
  22.             50 as short, _
  23.             50 as short, _
  24.             x as short, _
  25.             x as short, _
  26.             1 as word, _
  27.             result as void
  28.  
  29.     next x
  30.  
  31.     input r$
  32.  
  33.     progname$ = "notepad.exe"
  34.     code = _SW_SHOWNA
  35.  
  36.     notice str$(code)
  37.  
  38.     calldll #kernel, "WinExec", _
  39.         progname$ as struct, _
  40.         code as word, _
  41.         result as word
  42.  
  43.     print result
  44.  
  45.     input r$
  46.  
  47.     close #kernel
  48.  
  49.     input r$
  50.  
  51.     'WinConstants
  52.